home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / UEDIT4.ZIP / UEDIT422.ZIP / RC.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-03-13  |  3.0 KB  |  234 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     STRING001 = PPEPath() + "UEDIT.PPE"
  29.     If (Exist(STRING001)) Gosub LABEL001
  30.     Gosub LABEL002
  31.     :LABEL001
  32.     INTEGER001 = FileInf(STRING001, 4)
  33.     If (INTEGER001 == "7150") Then
  34.         Gosub LABEL004
  35.     Else
  36.         Gosub LABEL003
  37.     Endif
  38.     :LABEL002
  39.     Cls
  40.     PrintLn "@X0CERROR! The File  UEDIT.PPE  Does NOT Exist...@X07"
  41.     Wait
  42.     Gosub LABEL016
  43.     :LABEL003
  44.     Cls
  45.     PrintLn "@X0CERROR! Invalid System File  UEDIT.PPE  Detected...@X07"
  46.     Wait
  47.     Gosub LABEL016
  48.     :LABEL004
  49.     Cls
  50.     Input "@X09Please enter user's record number?@X07", STRING002
  51.     If (STRING002 == "") Then
  52.         Stop
  53.     Else
  54.         Gosub LABEL005
  55.     Endif
  56.     :LABEL005
  57.     GetAltUser STRING002
  58.     Cls
  59.     PrintLn "@X0BUSER'S NAME IS:  @X07" + U_Name()
  60.     Newline
  61.     PrintLn "@X09USER'S SECURITY LEVEL IS: @X07"
  62.     PrintLn U_Sec
  63.     Newline
  64.     PrintLn "@X03USER'S EXPERATION DATE IS: @X07"
  65.     PrintLn U_ExpDate
  66.     Newline
  67.     Input "@X0EIS THIS THE CORRECT USER?@X07", STRING003
  68.     Select Case (STRING003)
  69.         Case "y"
  70.             Gosub LABEL006
  71.         Case "Y"
  72.             Gosub LABEL006
  73.         Case ""
  74.             Stop
  75.         Case Else
  76.             PutUser
  77.             Gosub LABEL004
  78.     End Select
  79.     :LABEL006
  80.     Cls
  81.     Input "@X0AEnter the Conference number to change@X07", STRING004
  82.     Newlines 4
  83.     PrintLn "@X0EValid Entree's are: @X0C[R], [RX], [RXS], [RS], [XS], [X], [S], [N]@X07"
  84.     Input "@X0BEnter the flags to remove (Example: RXS)@X07", STRING005
  85.     Select Case (STRING005)
  86.         Case "R"
  87.             Gosub LABEL007
  88.         Case "N"
  89.             Gosub LABEL008
  90.         Case "RX"
  91.             Gosub LABEL009
  92.         Case "RXS"
  93.             Gosub LABEL010
  94.         Case "RS"
  95.             Gosub LABEL011
  96.         Case "XS"
  97.             Gosub LABEL012
  98.         Case "X"
  99.             Gosub LABEL013
  100.         Case "S"
  101.             Gosub LABEL014
  102.         Case Else
  103.             Gosub LABEL006
  104.     End Select
  105.     :LABEL007
  106.     ConfUnflag STRING004, 1
  107.     Newline
  108.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  109.     Wait
  110.     Gosub LABEL015
  111.     :LABEL008
  112.     ConfUnflag STRING004, 32
  113.     Newline
  114.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  115.     Wait
  116.     Gosub LABEL015
  117.     :LABEL009
  118.     ConfUnflag STRING004, 1 + 2
  119.     Newline
  120.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  121.     Wait
  122.     Goto LABEL015
  123.     :LABEL010
  124.     ConfUnflag STRING004, 1 + 2 + 4
  125.     Newline
  126.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  127.     Wait
  128.     Goto LABEL015
  129.     :LABEL011
  130.     ConfUnflag STRING004, 1 + 4
  131.     Newline
  132.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  133.     Wait
  134.     Goto LABEL015
  135.     :LABEL012
  136.     ConfUnflag STRING004, 2 + 4
  137.     Newline
  138.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  139.     Wait
  140.     Goto LABEL015
  141.     :LABEL013
  142.     ConfUnflag STRING004, 2
  143.     Newline
  144.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  145.     Wait
  146.     Goto LABEL015
  147.     :LABEL014
  148.     ConfUnflag STRING004, 4
  149.     Newline
  150.     PrintLn "@X09Conference number@X0A ", STRING004, " @X09has been unflagged with @X0A", STRING005, " @X09flags.@X07"
  151.     Wait
  152.     :LABEL015
  153.     FAppend 1, PPEPath() + "UEDIT.LOG", 1, 0
  154.     FPutLn 1, "DATE: ", Date(), " TIME: ", Time()
  155.     FPutLn 1, "USER: ", U_Name(), " (", STRING002, ")"
  156.     FPutLn 1, "ITEM CHANGED: Conference Flags"
  157.     FPutLn 1, "REMOVED FLAGS: ", STRING005, " IN CONFERENCE #", STRING004
  158.     FPutLn 1, "------------------------"
  159.     FClose 1
  160.     :LABEL016
  161.     PutUser
  162.     Stop
  163.  
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Usage report (before postprocessing)
  167. ;
  168. ; ■ Statements used :
  169. ;
  170. ;    5       Cls
  171. ;    10      Wait
  172. ;    32      Goto 
  173. ;    2       Let 
  174. ;    16      PrintLn 
  175. ;    14      If 
  176. ;    8       ConfUnflag 
  177. ;    4       Input 
  178. ;    1       FAppend 
  179. ;    1       FClose 
  180. ;    5       FPutLn 
  181. ;    2       PutUser
  182. ;    21      Gosub 
  183. ;    11      Newline
  184. ;    1       Newlines 
  185. ;    3       Stop
  186. ;    1       GetAltUser 
  187. ;
  188. ;
  189. ; ■ Functions used :
  190. ;
  191. ;    8       +
  192. ;    13      ==
  193. ;    13      !
  194. ;    1       Date()
  195. ;    1       Time()
  196. ;    2       U_Name()
  197. ;    2       PPEPath()
  198. ;    1       Exist()
  199. ;    1       FileInf()
  200. ;
  201. ;------------------------------------------------------------------------------
  202. ;
  203. ; Analysis flags : FWR
  204. ;
  205. ; F - Change conference flags status ■ 2
  206. ;     This may be normal for a SELECT replacement but it may also be
  207. ;     a way to get access to conferences a user is not allowed to.
  208. ;     ■ Search for : CONFFLAG, CONFUNFLAG
  209. ;
  210. ; W - Write user ■ 5
  211. ;     Program writes a user record. Although this may be normal for a
  212. ;     User Editor, it may also be a way to modify an account level.
  213. ;     ■ Search for : PUTUSER
  214. ;
  215. ; R - Read user ■ 5
  216. ;     User records are read, this may signify that someone wants to get
  217. ;     various informations about a user (for example his password), but
  218. ;     this may also be normal for a program accessing user records (for
  219. ;     example a User Editor)
  220. ;     ■ Search for : GETALTUSER
  221. ;
  222. ;------------------------------------------------------------------------------
  223. ;
  224. ; Postprocessing report
  225. ;
  226. ;    0       For/Next
  227. ;    0       While/EndWhile
  228. ;    2       If/Then or If/Then/Else
  229. ;    2       Select Case
  230. ;
  231. ;------------------------------------------------------------------------------
  232. ;                 AEGiS Corp - Break the routines, code against the machines!
  233. ;------------------------------------------------------------------------------
  234.